home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / asm / Tandem.lha / Tandem / Teaching / 57.asm < prev    next >
Encoding:
Assembly Source File  |  1999-08-21  |  1.2 KB  |  47 lines
  1. * 57.asm     TLResize     version 0.01    8.6.99
  2.  
  3.  
  4.  include 'Front.i'
  5.  
  6.  
  7. strings: dc.b 0
  8. st_1: dc.b 'TLResize demo',0 ;1
  9.  dc.b 'Error: Out of chip memory',0 ;2
  10.  dc.b 'Hello, world',0 ;3
  11.  dc.b 'TLresize demo...',0 ;4
  12.  dc.b ' ',0 ;5
  13.  dc.b 'I am about to use TLresize to resize 2 of the 3 strings',0 ;6
  14.  dc.b 'on the window.',0 ;7
  15.  dc.b 'TLresize demo...',0 ;8
  16.  dc.b ' ',0 ;9
  17.  dc.b 'As you can see, the strings are now resized.',0 ;10
  18.  dc.b '<- Narrower, taller',0 ;11
  19.  dc.b '<- wider, shorter',0 ;12
  20.  
  21.  ds.w 0
  22.  
  23.  
  24. * test program
  25. Program:
  26.  TLwindow #0,#0,#0,#640,#200,#640,#200,#0,#st_1 ;open window 0
  27.  bne.s Pr_cont             ;go if ok
  28.  TLbad #2                  ;report if can't open window
  29.  rts
  30.  
  31. Pr_cont:
  32.  TLstring #3,#0,#0         ;normal size at 0,0
  33.  TLstring #3,#0,#12        ;again at 0,12 - will be resized
  34.  TLstring #3,#0,#24        ;again at 0,24 - will be resized
  35.  
  36.  move.l xxp_AcWind(a4),a5  ;reposition requesters so they don't hide strings
  37.  move.w #70,xxp_ReqTop(a5)
  38.  TLreqinfo #4,#4           ;threaten to resize the strings
  39.  
  40.  TLresize #0,#12,#96,#8,#48,#12   ;resize the 2nd string
  41.  TLresize #0,#24,#96,#8,#192,#6   ;resize the 3rd string
  42.  
  43.  TLstring #11,#220,#12
  44.  TLstring #12,#220,#24
  45.  TLreqinfo #8,#3           ;confess
  46.  rts
  47.